home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
listing 21.d
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
530b
|
24 lines
10 open 15,8,15 :rem floppykanal oeffnen
15 print#15,"i0"
20 open 1,8,3,"test": rem relative datei oeffnen
100 print"lesen, schreiben, ende ?"
110 get i$:ifi$<>"l"andi$<>"s"and i$<>"e"then 110
120 if i$="l" then 1000
130 if i$="s" then 2000
140 ifi$="e" then 3000
1000 rem lesen------------
1010 input "satznummer ";sa
1020 gosub 9000: rem positionieren
1030 gosub 9100: rem lesen
1040 print a$ : rem anzeigen
1050 goto 100
2000 rem schreiben--------
2010 input "satznummer ";sa
2020 input a$ :rem eingabesatz
2030 gosub 9000:rem positionieren
2040 gosub 9200:rem schreiben
2050 goto 100
3000 rem ende-------------
3010 close1:close15
3020 end